2 
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rwcvii j-iraa: 

.REM ! 


pm 

DU 1 


IDENTIFICATION 


P^DUCT COSE: 
PFCOUCT NAN£: 

ftiTf * 

HAINTAINER: 

ft/fhOR: 


WUN0EC-11-02TCC-A-C 

tea - t:u test 3 

tWY 1. 1972 
OlfliNOSTIC SRI'JP 
L- R. ROLLER 


this maikcei obsolete* (kjnoec-u-cjcc 

copyriiht 1972. ::s:t«. eouifment corf.. maywwc. mass. 


T:3 - Till TEST 3 is .'AS* 3 OF A FIVE RR.'iRAf! PA.VAJE 

m 

m &3 * f W • 4 • Mrf * * * T* vW • 
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l 
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te * * 


JMCVH 27(732) I0-2EP-7& 15:5! PAOE 2 


ABSTRACT 



E8UIPKENT 


m m 
mt m 

m * '«» 


3 . 


CONTROL AND AT LEAST ONE TLSfe DUAL TRANSPOR1 



STORAGE 


THIS PROGRAM USES LOCATIONS OCOCLJ ThROLGH 0I?SC: 
LOADING PROCEDURE 


iSSSPS&l ra : : 9§ £ ■ 'S,a ss: -- TE 




M.i 


rttC'-u r.?»> io-sep-:s isssi 

USE PROCEDURE 

A. 


DOl 


STED WITH STANDARD FORMAT DEC TAPE. SET TO 
'HES MUST 3E OFF. 



and halts. 


^dIsiAedIr OPTIONS 


fe, ETC.). 


THIS PROGRAM'S SR OPTIONS ARE: 

us * : 




' Nl ‘*' t J^THRCUaH SPC 

THROUGH SRO "NUMSER OF TBT’tS’&’UtfCTED 
SECTION 7.1 GIVES A COMPLETE EXPLANATION CF SR OPTIONS. 

>N. 



H. 

I. 

J. 

EXECUTION TIME: 

A. ONE NORMAL ERROR FREE PASS TAKES A* 

S! ONE SINGLE ITERATION PASS (SRIisi* TAKES 

####*#NCTt****** 


TELETYPE SELL SIMS JNCE. AND 
PRINTOUTS OCCUR. 


v a 4 } 

I ' 4 - I 

■■ 15 MINUTES 


?IPnO^ PIl 4 1 t|r AT ? 0N * $ASS ’ 5H5iiLD 


RESTART PROCEDURE 


S A CONVENIENT WAY TO OUICkLY 
MS EXIST. FOR A THOROUGH TEST. 
RUN. 


mii% ^snw mm Mm m*** 



, # 





1 
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E01 


PROGRAM AND 'OR OPERATOR ACTION 


NORMAL HALTS 


LOC 002HHH 


CO WON HALT. THIS HALT IS CONTAINED IN A 
THAT IS CALLED BY Th5|| RART|Jf TH| PROG! 

THE CONSOLE Wr^ljSrS^IS^Lflf^ WfiRpI'?^ 

INSTRUCTION THAT GENERATED THE HALT REQUEST. 




i * m. 


ooi::h 



jOT ^? 5 * 75 


NORMAL PRINTOUTS 


ALL NON-ERROR PRINTOUT* 

t!!le. and user 


• normal printouts, instruction. 
fours are NvRmal printouts. 


ERRORS 


ERRORS ARE REPORTED IN THIS PROGRAM 2Y THE FOLLOWING METHODS: 

T« 

» ♦ « 


[NTOUT FOLLi 
UNCONDITIONAL ERROR HALTS 


»t:cnal error halt. 


.T WILL OCCUR AT 

- Vyflgr rfi?' j fig PROGRAM’ *'\NTR' r 
tO AN' UNEXPECTED AREA SETuIIn iCCCQO ANOXIAS. 


pSERVED^NSTRUCTICH TRAP 

^OUER R ?AIl TRAP 
EX 

ro FIND OUT WHERE THE PROGRAM WAS AT THE TIME THE FAILURE OCCURRED. 
A. EXAMINE CONTENTS OF REGISTER fc. (ADDRESS 177706) 



\l?b - SYSTEM 
! TO 11 AND TTY v* 


AND INTERRUPT VECTOR AREA. 



AND 
HE PC WHEN 




* * n _ ♦ * 

j ^ JJ 

ft^# 


:aJ 


n 

« t 
4 4 


tm* 1 

* GiS i w 


6.2 


} 


i 

( 


i 

i 


i 


i 

i 


FOl 

rttCvii £7(7321 10-SEP-7S 15:51 PME 5 


;S. 1 CONT’D) 



ERROR PRINTOUTS 



J 



1 


* * «% * 

iiTccA.pi: 


il TEST 3 


MACVII STi?32i JO-SEP-TS 15:51 RASE S 


MISCELLANEOUS 


GOl 


SR OPTIONS 

THE STANOARD SR OPTIONS ARE DESCRIBED HERE. 

SR1S 

PR05RAN TO RESUME OPERATION. 


SR1H 


SR13 


SRU 


SRIO 


cfia 

8P # 



THE PROGRAM TO REMAIN IN THE 
THE OPTION IS REMOVED. THE 
CURRENT ROUTINE, AND WILL THEN 

THIS OPTION IP SET. WILL REMOVE 


t####NOTE***«* 
*T3 



A. TO_S' 
S. 



AT A 
WHILE. T 


T 1i« IEST 




rS° Tm 

OPTION 
E THE 



TO*,; Till TEST 3 

n * T' ■ m 

t % % ft « 


\3 


ft 

S« 


ft 

ft , . 


HOI 


MACYll £7(733) 10-SEP-7E, 15:51 PAGE 7 

TESTING TC11 AT NCN-STrNOrtRO ADDRESSES AND OR VECTORS 



me ooi! 

. PROCEED TO USE THE PROGRAM, OR 


TI 8 ffi ¥S5“ 

ADDRESSES, CHANGE 



E - wras im 


ute 


DESCRIPTION 


THIS PROGRAM IS ORGANIZED INTO THREE MAIN SECTIONS: 



CONTROL ROUTINE 


WHEN THE PROGRAM is STARTED. 


A. CONTROLS SEQUENCE OP TEST ROUTINES. 
8. HONORS AND ACTS ON SR OPTIONS. 


♦•ft *fk 


IS CALLED PROM A TEST ROUTINE BY THE 


3 

3.2 


Q % 
«* m 
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TDI 


TEST ROUTINES 



fflfflU, 

LOOKS AS FOLl 



JMtP 



A SET 
31 t 


mlfWl? THAT 

R-THAris L U§EB £H m 


iOPERLY SEGUENCE THROUGH THE 
(EXAMPLE) 


tY THE CONTROL 
EST5. THE HEADER 


T20: 20 ; ROUTINE NUMBER 20. * 

T2i : ADDRESS OF NEXT ROUTINE * 

TION COUNT * 

; score swRY POINT * 


SHOULD 

PF ! 


ITEMS 

Mftfl 


BEF 



i JWWW 


NEXT ROUTINE. 


BWfflWHF 


ilLY POINT T 
CONDON SUBROUTINES 


Mi o¥ TC?\ 

TO THE CONTROL ROUTINE THE 
_ FIRST ITERATION. THE ADDRESS 
THE FIRST INSTRUCTION OF THE TEST. 


UNT 


ADDRESS 

MAY 

























4raixufu^ o*0€0 










MACYII 27(732) 10-SEF 



3 

004444 

004250 

004240 

003200 

MMifi 

303744 

005370 

mm mm aa* jh 

003000 

WW WWW w 

003015 


005422 

003276 

003404 




START: 

m 

{ROUTINl 

000002 

DTRMN: 


S00RV1: 



100200 177402 


15:51 PAGE 13 


N01 



.115 

m 

.WORD 

:bo|o 

.LIST 
• WORD 

:UB 

.LIST 

:SS? 

.W0R0 

.LIST 

.WORD 

W 

.LIST 
MOV 
CLR 


BINFLL 

; POINTER FOR EMT CALL BINFIL 

DATCK 

; POINTER FOR EMT CALL DATCHK 

DTCKI 

; POINTER FOR EMT CALL DATCK I 

IN8INN 

{POINTER FOR EMT CALL INBIN 

GTBIN1 

{POINTER FOR EMT CALL GET3N1 

PRENDZ 

{POINTER FOR EMT CALL PRMEND 

RDTFX 

{POINTER FOR EMT CALL RDATFX 

INRNDN 

{POINTER FOR EMT CALL INRND 

RNDFLL 

{POINTER FOR EMT CALL RNDFIL 

SODRV 

{POINTER FOR EMT CALL SEGDRV 

SELDRR 

{POINTER FOR EMT CALL SELDRV 

OACNVV 

{POINTER FOR EMT CALL OACNV 

BDCNVV 

{POINTER FOR EMT CALL BDCNV 


;SET BOTTOM OF SP STACK. 

n I nnu 

{TYPE TITLE. 



MOV 


'0RTS 


;f no' 

IVAILABLI 


.OADED VIA MONITOR' 


FOR TEST. 


ORIVi 
TO T£ 


» 1-7 AVAILABLE. 
»T 8 TIMES. 


1DPV 
>£ 


S0DRV1 


JR iN 

Sv 



lu 


TRANSPORT. 

T § 

NOT AVAILABLE RETURN. 
TO REVERSE END ZONE. 


OTRMNB 
3TCCM 
4 


;ERR^R RETURN. 


BPt 

hC 

^WYA+FUD+i 



II _ 

1 - 1 , 


BA 


2 m m 

IT tBIT15+BIT7. STCCA 



ADDR. 

WRITE DATA COMMAND. 


ERROR RETURN. 

jWAIT FOR ERROR-READY. 
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B02 


4 ’ * • 7 


177442 


0140 G 3 

1775*4 

5^ 


17 - 34 C 

rr-ic 


175C14 177312 



177777 


TST 

3PfX 

OTRNNA: 5 TOPDT 


ST9 


E 

iOUNIT 


DTRNN 3 : |n 
iw 

V 

[CS 

CTRflNC: Type 

)OD 


CPENA: 


*DRv 

[N 


OPENS: 


STRTAs 




GITRDY: 

iTRCYX: 


175724 

1757D6 

177145 


M; | 

GORLIN: SEODRV 


GTRDYC: 

GTRDYD: 


?B 


RROR’ 

R IP Y! 


JTRHNC 




Y UNITS AVAILABLE ’ 
YPE^NCN 5 AVAIL ABLE MESSAGE. 


ik- m: 


,2Tcir W 


EXIT. 


.0 OR 5ELE ERROR' 



Vl.Ri 

" i i , UNITS 


il. CPENA 
•7.CTR 


9 


OPENS 

JNITN.RO 

GTRBifii.5?flPES 



ipTROY 



3 NE 


•SPBOT » 


R 7 .fcrwo 

I 

1CURT5T 
RTNNO.SR 
GCRUN 
•-I.NXTST 

•VA 


:BR IP N 5 tT 
: DESELECT NON AVAILABLE TRANSPORT 

; TYPE units to 3 E tested. 


; CHECK L ! P TO 7 UNITS. 
; SELECT 



NOT. 

UNIT SELECT INSTRUCTIONS. 
[WAIT PC 

[TS TO TEST. 

ID. 



IDHHON 


Sr’printcuts. 


N 


tj ;w * i: 

JojgjJflF STACK. 

[ALlzi BINARY COUNT. 

St dt interrupt vector to 3, 



__ 

JjjL 

COMPARE 
Jranch IP 

I NO. CHECK _ _ _ 

I BRANCH IP NOT LAS 


-NEXT- ROUTINE. 

ifiSI “ T£ " 

nt t r5u s |ine. 


routine. 

routine. 


fr « 


NAC'll ri'3=! 10-SEP-TS 15:51 PAGE 15 


Cue 




IDHCIO 














00*140 

JjgljH 


ocxooc 

177112 


mu 




HODS 


177050 


015700 17**04H 


X10Q3 


177777 177024 


G00G42 




175752 

17575M 

175752 

| J ?§2 




:ic^:5 


30CU2 


175720 

17SH52 


177755 

177755 

XrrytHS 


TYPE 

AINCRT 

HAINN: i?0FDT 


H0CC0 175535 CHNAC 


175520 CHNA: 


002000 175502 ChNAA: 


175554 CHN2: 


l ^ 

*mv44v 


P 

COM 

HNAC : BlT 

HNA8: lisDRV 


GETRDY 

a^F|0T,RS 


MOV 

halt 

k 

APGENO 

f v 


ynrmv 

ICNT 

•llTlH.SR 

CHNA 

asoop™ 

iBITil.SR 

CHNAA 

ICTR 

CHNAB 

•B1T10.SR 

CHN8 

RTNNO.RO 
•BITS. SR 


a-i.NXTST 

GTRfSYX 


3iH2.R0 

HERE 




P G CHNC 

GE TRDY_ 

FCRUOi MOV NXTST.R5 

MOV tS)*.RTNNQ 

MOV (S)*.NXT$T 

mov 

MOV C5H.SC0PTR 

FCRWDA: MOV RS.CORTST 

MOV •!. ICNT 

MOV RttlNO.SR 

:EMT INT£R?RETER R R0UTINE. 
tMTINTi MOV R0.-(5) 

MOV 2(5). RQ 

MOV JJOMW 

m|v jjjMTTAB-lOQCO(O) 

iSAVE REGS S 0 TO 3°SUBR0UTINE. 
SvC3: MOV (B' + .-lO.iB'. 

MOV (5)*. -10.(5) 

MOV afiTI.SVOSC 

8R SVOtt 


TYPE INCORRECT RTN SELECTED. 


m\\« w? - : - 

Ielk? bte 1 ’ 

TEST INMIBI^nEfiiTIQN . SWITCH 


KftW SEr tSfil8 ' 

Test # To rq 

ROUTINE END AalT, TEST a IN i.IGHl 


lw ! sr 


BRANCH IF NOT LAST TEST. 

TYPE PROGRAM END SELL. 

sp comets OF 42. 

retuIn re ««y 

ANV UNITS AVAILABLE FOR TEST!: 

B t'prosram. 

ISS'aS."- 

OF NEXT -NEXT** RCUTINi 
AT I ON COUNT. 

E LOOP ENTRY pointer. 
NOW CURRENT T£5* TO 0. 
CNT TO 1. 

OIiPLAY_ROUTIN£ a*. . 


{EXIT FORWO SUBROUTINE. 

IM-pc. 

Mv^ 

,A0 ;FCRM EMT ADDF. 

:G0 TO EMT RTN. RESTORE RC. 

| m 8 V i S^a¥u1 T UPSTACK. 


TC3 - TCH TEST 3 
3rTCCfl.Pl! 





17B 
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D02 


o:q240 


000002 

1777^2 

17^ 0 ' 


000023 


17771 


00226*4 010566 000020 


177772 

17777: 


000010 


000010 


177772 

♦ mmmm* 


:5U3 TO SAVE REGS 0 TO S AND PLACE EMT PC IN RS. 
000036 §V05S: NOV •N0P.SV05C 

SR SV05h 


000026 


SV05A: 


5V05S: 


SV05C; 


TO SAVE REGS 0 TO 5, 
NOV •RTI.SVCBi 


* m ? 

M* 


NOV 

TST 

:RESTORE^|gS I 
RS 03 : P 0 PSP 2 


v6)^,-14. (6) 
(g)4,“14.(&) 

R4 

R 3 .-i 6 > 

R 2 ,-C 6 > 

R 1 .-C 6 ) 

RQ,-(&1 


16. (6 > ,S5 
R5.R4 


;NOVE PC AND PSW UPSTACi 


M 2! 

; tn i rw tv “5* 


(6)4, RC 

(6)4. fii 

( I ) ♦ ! r§ 

-IQ. ;6).-(6) 

-1C. (6) ,*(6) 


: RESTORE REGS 


NOVE PC AND PSW DOWN S’ 


1 TO SEt RS IN ENT PC AND REstCRE REGS 0 70S. .. _ 
55: NOV R5.I6.v6: ;S£T ENT pj TC RS CCNTEN 
8 TO RESTORE SEiS 0 to 5. 

5: P0PSP2 

NOV i6'+.R0 
NOV (6)4. Rl 
NOV (6)4, R| 

NOV (6)4. R3 
NOV (E)*. RH 
NOV (6)4 RS 

NOV “1H. 16) ,•( 6) ; NOVE PC AND PSW DOWN'S^ 
NOV -14. (6), -(E) 


SvSS: 


RSSS: 


NOV 

PUSM2 

NOV 

NOV 

TST 

RTI 

NOV 

PCPSP2 


(614,-6(6) 
(6)4 .-6(6) 
R5.-*6) 
R4,-(6) 

8.(6), RS 

RS.R4 

-( 4 ) 

RS,8.v6) 

(6)4, R4 
(6)4 ks 

•6(6 5 , -(6) 

J m ] • i fc 


DOWNS’*’ A 


ic ! AfiD PSW UPSTACK. 

SAVE RS. 

SAVE R4. 

ENT PC TO R5. 

ENT PC TO R4. 

BWJBLSyS- 

RS TO ENT PC. 

RFRTARF B4 

RESTORE RS. 



















IBS 











00 IT AGAIN. 

RESTORE SUBTRACTED VALUE. 
; CONVERT RESULT TO ASCII. 

; STORE RESULT. 

UPDATE 10 POWER ADDR. 
DONE S TIMES’ 

;BR IF NOT. 

: GET ADDR TO STORE ASCII. 

































I 


1180 




I 




104035 


lw. 








wtiiia 




0187 


ht-i 


I 


004000 17348 ; 


RND8KK 
•BIT 11 , SR 


BR IF NOT. 

RfiN^M 5 DESIRED^ 


178000 

177764 


BM5 


17775H 17H780 


7 1747.; 00107b fe)8IU: 


rt: no. retbin sane bl 

K : RNONUN -GET RANOOI1 NUMBER. 

: OPEN i RANDOM NUMBER GOES 

CMP RTOKflfiHOl* 11 ; NUMBER A VALID BLO 

SHI RND8K ;8R IF NOT. 

NOV RNOBKA.BLKRQ ;YES. NUNBER TO BLK 

RTI -EXIT ENT SUB. 

;ENT SUB TO GENERATE RANDON BLOCfU AND STORE AT BLK 
:THE NUNBER MUST NOT BE >574, OR <3. 


•178000, RNDBKA 
RNOBKA, 11101 
RNOBK 

RNOBKA.BLKRQ 


174702 000002 
004000 173378 


177771 

00000c 


177754 001076 
177744 174624 


OQQQQl 

174600 


000006 

000012 


CNP 

cnI 

CPir 

BIOS 


BEQ 

RTI 

R0BK1A: RNONUN 
RDBK1B: OPEN 

m 

BLOS 

CNP 

BHI 

NOV 

RTI 


B ,i574. 

A 

92 

1,SR 

A 


K OOO^RDBKIB 

||,i574. 

1B.BLKRQ 


§ E IF CURRENT BLK 
• IS HIGH GENERi 
IS I <3? 

IF « IS <3 GENERATE AN 
VALIO ». RANDON NUNBER 
BR IF RANDON • IS DESI 
NO. KEEP SANE NUNBER. 
GET RANDON NUNBER. 
RANDON « IS STORED 

IS • <3? 

IF • is <3 GET ANO' 

» LARGER THAN 574. 

BR IF LARGER. 

NEW NUNBER TO BLk'Ri 
EXIT* 


022041 000120 StCKI: MOV 
088081 000110 ggjgc. MgV^ 

MOV 


ENT SUB TO CHECK EXPECTED DATA AGAINST ACTUAL DATA 


000104 


MOV 

NOV 

MOV 

DATCKA: CNP 


EXPO: 


ACTO: 


BEQ 

MOV 

MOV 

OACNV 

OPEN 

ADATSB 

6 

OACNV 

QPEN 

ADATWS 

6^ 

BDCNV 

DATKNT 

AWDCNT 

4 

ERRORN 


JjjgjM.DTCKBfl 
•038081, DTCKSA 


(S)+,RQ 

if'+.gl 

rfr 


; SET UP TO INCR EXP 

; SET UP TO INCR BOT» 

; GET EXPECTED DAT 
GET ACTUAL DATA i 
GET CHECK COUNT. 
SET CURRENT WORD i 
ERROR LIMIT TO R3. 

; COMPARE ACTUAL AND 
;BR IF EQUAL (OK). 

; CONVERT EXPECTED D* 


{CONVERT ACTUAL DAT* 


{CONVERT WORD 


{DATA ERROR. 








I NTH ERROR’ 

BR IF YES. 

iMm 

!b8 |F NOT DONE 
DONE. 

; EXIT. 

TO 0’S 

[GET STARTING Ai 

!«, 

DONE? 

BR IF NOT DONE 


P’lED VALUE. 

I T STARTING Ai 

T VALUE* IN W< 
IF NOT DONE, 

H COUNT PATTERN, 

GET STARTING AI 
GET COUNT. 

GET BINARY WORI 
BINARY WORD IS 
STORE WORO. 

BR^F NOT DONE. 
DONE. 

■EXIT. 

\ IS 0, AND THAI 


GET EXPECTED TC 
SAVE TCMC AND 1 
WORD COUNT 0? 
BR IF 0 (OK). 
WORD COUNT NOT 
CONTENTS OF TCI* 




































*«cu: n-sr io-sep-i* is:s: pase r 


B03 


SMgN 

«*X£.U 

«• «J3tS“ 


00S2S0 


;?3S22 


COCOES 

17355H 


WRDFRA: QPEN 
>wwPE 

nov 
j tcon 

^RDFRS: OPEN 

•LAY 
.AV 
[NT 

S£ 

WRDFRC: j^y 

WRCFRC: P0PSP2 
TST 


fflfiP 

iSH.STCBA 

afceA.wROFRi 


iWRDFRC , STCvTR 


iWRDFRD, ;6 


STCCfl 

WRDFRF 


coons 


OOHilS 


177722. 

mmm • m 

frHfj 

7?S?H 


i 

177! 


OOQiES 2776% 
000020 

I 77770 000002 



hTA!FUD!IE!DO 
TF+6 

£T£I; 


[N 2'S COMPLEMENT FORM. 

ET ADDR IN TCBA 

wmitem sr c?,T 


ENTS, 


RROR IN SRCHF OR SRC HR. 

<%3rL v i£I?5 70 ^fro. 

)ATh or rdata. 

" “ ■*“ urttr 
HfcHi. 



nnwrv * 

interrupt, 
failure to interrupt. 

m Mr PT o:cuRS ' 



m' 

WO^O COUNT AND CURRENT ADOR. 
SHOULD EQUAL this. 


'Ml 


A!REV!IE!DC.WRDFR9 



: A|FMD!IE!8ITS!3ITH!C0.LR0FR2 
NTIAL DEC TAPE UNIT. 

SQDRVA 



IN SQDRVA IF AvAI.ABLE. 
“RE. 


OOSHSH 273H3H 

I72H2H 

173H27 


) SELECT SPECIFIED 

NOV (55* a RQ ; GET UNIT NUM8ER. 

8ITB UNTA|iO). UNITS : SEE IF UNIT AVAILABLE 
BEG SELDRA ;BR IF UNIT NOT AVAILABLE. 

NOV RO.UNITN iAVAILABLE. SELECT UNIT. 

ttOVB RQ UNIM 

TST CS + 

SELDRA: RfTQSS 


: SET UP SELECTED EXIT. 


m #»i <•* 

jZz 


OQH UNTAB: ?8YTE BUG . 31 T 1 . BITS 


.c-sfalsiN, 


sits. sits. sit 


















D03 

10-SEP-7E IS: S I PME E9 


CTCDT: 

.ASCII 

• TCDT * 

ATCOT: 

.asci: 

« « 

SBTCOT: 

.ASCII 

• TCCTS8 • 

AS8TCD: 

.asci: 

t * 

ST AT: 

.ASCII 

• * j* r * 

ATCCM: 

.ASCII 

• y+£+ • 

ATCST: 

.asci: 

t * 

INTFAI: 

azrr* 

* rl3? V # 4t 

' *.NC OT 2NTRPT * 

OT£RR: 

.asci: 

' *;0T ERR * 

BLKS6: 

.ascii 

’ BURG * 

ASlKRG: 

.asci: 

t t 

WCNOTO: 

.asci: 

« * T*iir \i*>? f! ♦ 
* t I 'ini' *4 % *1 W * L# 

IMCTC8: 

.asci: 

* *;TC9A m% ’ 

TCBA59: 

Afif ?T 

t 4 4 

• T*B0 * 

ATC0AS: 

.asci: 

t ♦ 

DATERR: 

.ASCII 

’*.CATA ERR UORO * 

O 

•• 

.ASCII 

• , s-9 * 

AOATSB: 

.ASCII 

UAS * 

AOATUS: 

.asci: 

« t 

STCF1SG: 

.asci: 

*%RDY-ERR NOT C AFTER DO 

EMSGQ: 

.as: iz 

*UlPS DIDNT SET * 

EMSGQA: 

.asci: 

’ •■■.PREMATURE UPS * 






EN3il 


CICfiT 













TWri*'* 

W4i * Wv 


1 ‘in 
a.?i: 
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F03 


:*g 3 

isoh 

t|5| 

i 3 §y#Q 

1607 

list 


hi! 

iiji 

ip 






it**! 


1?HH 

IcHS 

» 

I|M| 

I 

*£ca 


207222 

CQ702H 






mn 

El 

0071* 


ocrioH 

!8rl2E 


Q2QQ0Q 

0c7ISu 

000012 

nnffipt 

kWi wC 9 


0QH767 


IDMOI! 




Hii 


012767 

0QH767 

012767 

0CH767 

1CHOCO 

* r u^l « C 

4 # iy ♦ «# 


000022 Aft: 


000200 


000200 171652 


rPr^l 


0CC23M 

000022 


; **♦♦********♦*♦**♦§♦#**##****♦####**########*****##♦*#*#*******♦*****♦■*• + 

to = ?i mm imw 

10. ; TEST ITERATION COUNT 

AA ; SCOPE ENTRY POINT ♦ 

• LIST 

;#**##****t*##*#**#*t#t#t#t*t###t#**#*####***#t#*#f *#*#*##**#+**♦**♦**+*+ 

; TEST THAT ISSUING RNUM-FWO-NODO, AND RNUM-REV-NODO CAUSE UPS TC SET 
: CHECK THAT ISSUING SST COMMAND CAUSES UPS TO CLEAR. 


000010 


£Q. 

n 8 t 

ABA: 

A8AA: 


MOV 

JSR 

MOV 

i?0PE 

SETCOM 

|c1pe 

delay^ 

CK|RR2 

BIT 

iPsGG N 

STAT^ 


£«* Aor 


•RN^M.'FWD, ABA 
iRNUM'REV.ABA 


ABC 

•bit: 


ATUS 


lk n 


•8IT7.3iuai 


■SET UP FORWARD RNUM COMMAND. 

; SET UP REVERSE RNUM COMMAND. 

. SCOPE 

! issue’ command. 

WAIT. 

CHECK FOR ERRORS. 

|R|OR RETURN. 

END2 RETURN. 

UPS SET’ 

SR IF SET. 

ERROR. UPS FAILED TO SET AFTER 
ISSUING RNUM-WD-NO- DC. OR AFTER 
RNUM! REV! NO-DO. CHECK tvPED STATUS 

IsSui'SST 

SETCOM ERROR. 

Save tccm and tcst 

UPS CLEAR’ 

PB tf »*i cao 

fefe&SgWS aEfiS - 


m. 


tl: 1 ; ROUTINE NUMBER 1 ♦ 


T2 : ADDRESS OF NEXT ROUTINE ♦ 

ID. ; TEST ITERATION COUNT » 

BA : SCOPE ENTRY POINT * 

.LIST 

?^«ii?£ T r pTs vblid MTfl Hfls 5een 

6fl: MOV »RNUM!FUD!tE!D0.6Bfl ;SET UP FOSUflRO RNUM. 

JSR p£ 30 

MOV *R^UM ! RE V ! I E ! DO . SB A ;SET UP REV RNUM. 

JSR PC.BB 

SCOPE 

23: SVECTR ; SET INTERRUPT VECTOR TO 
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G03 


I ©55 

tttn 


lii| 

ills 

ill! 

1670 

1 £.«M 
4 04' 4 

1|Z| 

» £At« 

ilri 






ill: 

IMS 

ill! 

lo9S 

ills 

m 


im 

1705 

1?0| 

I7g 

1710 

1711 

1712 

1713 


007210 

007212 




0072*40 


0072% 







007370 

007272 


012777 


QQ^Ill l^oli 

007230 10*4027 




10*4023 

10*4000 


177777 






00732*4 10*4017 

007326 000003 
r.n-raon 1 nunnn 




lrisrn 


0072*42 


t 

i i t / 4 / 


171*4% 


171*416 


BC 

nov 

#K°* 

SCOPE 


SCOPE 


•-1.3TCDT 


BCA: 


m 

SCOPE 

BP 

:mp 

SNE 

SAVOTR 
ERRORN 
|M5G2 
STAT . 
CTCOT ' 
-1 


*BL . : a ' 


BF 

•-i.3t:dt 

BE 


171510 001101 BE: 



SCOPE 

• SCOPE 

2£: 

CMP 2TCDT.81I01 

1 BLOCK ‘BE 


BHI BOA 

;BR IF NO 

BF: 

ST0P07 

; ALL STOP 


RTS PC 

{EXIT. 


L 

73 

15. 

CA 

.LIST 


BC. 

SET TCDT TO ALL i‘S 

ippSB^'il I Sft D 8nuri!REv! :e!DO 

SETCOM ERROR. 

RNUMIfwO! IE! DO OR RNUMIREV'IE'DO FAILED 

MMt jawp 

TO INTERRUPT FAILURE. 

SCOPE. 

HERE WHEN INTERRUPT OCCUR; . 

ll# Sta! - 

HERE IF ERROR. 

BP’HPfflL s -r 

NO. OK 
SAVE TOOT. 

TCDT STILL -1. ERROR RNUM FAIUEO 
TO READ BLOCK 8 INTO TCDT. CP. 

DATA IN TCDT IS NOT BETWEEN 
0 AND 1101. '.CHECK TYPED TCD 7 / . 


a *. a , tm, m 

» M " 

V v 1* %#• ><•* 4 


;4****#*t****#**4***#44********#4******t##***t#**»#*****#***+***4**4***** 

t2: 2 : ROUTINE NUMBER 2 ♦ 


:TEST 

ABILITY TO DE 

tfl: 

SEtCOM 


RNUM'FWD'DO 


SCOPE 

CAB: 

DELAY 


CKERR2 

SCOPE 

NOP 

TST 2TCD7 

BEO CA 

SVECTR 
CD 

SETCOM 

RNUfl! REV! IE! DO 
SCOPE 

BR COB 

INC 2TCCM 

DELAY 

NOINT 


; ROUTINE NUMBER 2 
; ADSrESS OF NEXT ROUTINE 


ISSUE RNUM.'FUD.'DO. 

SETCOM ERROR. 

CHECK FOR ERROR 
HERE IF ERROR 
EN02 RETURN. 

Slock 

YES. GO PAST BLOCK C 
NO. SET INTERRUPT VE 


T T,** ~pv 

1 *Lv • w" * v v w 


ISSUE RNUM! REV! IE! DO. 
SETCOM ERROR. 

ISSUE DO. 

TIME OUT INTERRUPT. 
INTERRUPT FAILURE. 


S5,- ' t::i test 3 
i % vH • P* • 


r: 5 
ns 
rr 
ns 






>£>£ 

see 


1040QC 


114 



* #' f 




_ J1253 
1Q4Q00 



iQM02| 
nn*?t 1 & 

Ub* w* w 
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007404 
171374 


H03 


171355 

171350 


171332 


007530 


171432 


000200 171310 


000200 


171235 



SCOPE 


CD: 

MOV 

ICE, (5) 

CE: 

RTI 

P0P5P2 



TST 

2TCCM 


BPL 

w 

FRMEND 

CEA 

CEA: 

MOV 

2TCDT.3LKRQ 


TST 

3TCDT 


BNE 

SVECTR 

CCA 


CH 

DELAY 

STATUS 

TST 

§mi 

ERRORN 
EMSG4 
ST AT 


T 


•re* 

v I « 

CPA: 


SCOPE 

i r 


ru. 

V* * • 

Cl: 


?0RN 
iriSGS 
STAT 
-i 

ERRORN 

EMSG3 

STAT 

icGPE 

MOV 

RTI 

P0PSP2 

CKERRZ 

SCOPE 

NOP 

BIT 

SNE 

SCOPE 


iUPS.OTCST 

CG 


tCI. (5! 


•UPS.OTCST 

or 


CPA 


WHEN INTERRUPT OCCURS. 


ill Iet 


IR IP NO 

», 

PREMATURI 


ACK. 

ET’ 


R 
REV 


SAVE BLOCK NUME 
SLOCK O'* 

BR IP NOT. (KEEP LOCKING POP BLOCK S',. 
SET INTERRUPT VECTOR TO CH 

WAIT FOR POSSIBLE ENDZ INTERRUPT. 

SAVE TCCM AND TOST 
END? BIT SET’ 

REV ^ND^ONpP AILED TO SET 
ENDZ SIT. 


UPS CLEAR’ 

m M%% m 


GET - - . 
CLEAR UPS. 


V ENDZ fails: 


SCOPE 

ENDZ BIT FAILED TO CAUSE 
INTERRUPT. (CHECK typed 
TO SEE IP ERROR BIT SET;. 

SCOPE 

HERE iP INTERRUPT OCCURS. 
EXIT TO Cl. 

RESTORE STACK. 

CHECK FOR ERROR OR ENDZ 
HERE IP ERROR 

HERE IP ENDZ. UPS CLEAR 1 
.BR IF UPS NOT CLEAR. 

; SCOPE. 


•#***##****#*****##*#****###*#**#####*t###*####**#t****************.*** + ** 

t3: 3 ; ROUTINE NUMBER 3 

T4 : ADDRESS 0* NEXT ROUTINE 

; TEST ITERATION COUNT 


; SCOPE ENTRY POINT 


I 

DA 

• LIST 

;m*«*«**m**«H*«*#H****H*****«***H*M**«******H«**HHHn 
: SEQUENTIALLY SEARCH ALL BLOCK NUMBERS IN FORWARD DIRECTION. 

6A: REWIND :REWIND TO REV ENDZ. 

SVECTR ; SET INTERRUPT VECTOR TO D3 

DS 


+ + + + 














:k. 

IRORS. 


id end; 

IUM8ER 
f 77(11 
IlOl I 
ITINUE 


T VEC 













h mm i?o u ?2 170H22 

'2 0D1H02 


ulx 














104034 






17DM24 


001067 


010510 


m 


170376 

170372 

170400 


170322 
7 170254 


170320 170250 


30013 


m 


r K 

ill, f 3LKRQ 
•11. , CTRB 

dec £IS ft 

Bill FOR 

STOPOT 


THE BLOCK NOT THE EXPECTED B 

m bckro to next expecte 

RESET CTRB TO 11. 

DONE TO. ALL STOP. 

SCOPE 


SCOPE iSCOPE 

t7: 7 ; ROUTINE NUMBER 7 

TlO ADDRESS OF NEXT ROUTINE 

L ffiL I Wte I S8,£B UNT 

GA SCOPE ENTRY POINT 

.LIST 

SEARCH REVERSE. READ EVERY 11TH BLOCK i ANO CHECK THAT IT Ml 
WITH EXPECTED BLOCK. 


*fiO. 

Win. 


WIND 

MOV ISO. ,CTRA 

MOV ill. CTRB 

MOV 1567. ,8LKRG 

SVECTR 

W^REV'IEiOO 


iGC , ( 6 ) 


GCA: 


MOV 

PTT 

SBB 

SCOPE 

PRMEND 

SAVDTR 

CMP 

pOPE K 

SUB 

MOV 

0E£ 


CTRB 

STCCM 

BLKRO.STCOT 


GCA 


;G0 TO FWD END2. 

; 1ST EXPECTED BLK i TO SLKRG 
•SET INTERRUPT VECTOR TO GB. 

I ISSUE RNUM!REV!IE!DG 

|t s ? 5 e c «errupt 

j FAILURE TO INTERRUPT 

•heSewhen INTERRUPT OCCURS. S 
IexIT TO OC At® EXIT 

•cMck^O^ERROR OP. END2. 

•NO. CONTINUE 
iSAVE TCDT. 

; TCDT^SAME AS EXPECTED 7 

ilWjK."” ■** * 

DONE 50 TIMES 
BR IF NOT 

DONE 50. ALL STOP. 

SCOPE 


WWVI km | «iWVf b 

tlO: 10 -.ROUTINE NUMBER 10 

Til ADDRESS OF NEXT ROUTINE 

1. TEST ITERATION COUNT 

HA SCOPE ENTRY POINT 
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RK IP Jffj Rt '**%' 

« ♦ m 


nacyji 


4 * 4 ® ■■ i 

Z- i 


* 32 : 

wf* * 



Rl^ATAF 

Jk 

5 §Sp£ 


5t8Se AT S ADDR°ST 


ORDS 





a: 

RT 




tlM 


list 



■If 57 

;$t 


•R 14 

1x7 ROUTINE 

rffcsr 


# 

♦ 

♦ 

♦ 


; ♦#♦♦#♦#♦####§§#♦##*###§###§#♦#♦#####§######§#####♦##♦#♦♦##♦♦##♦###♦##♦♦♦ 
am am. m m. . mma. l m«mm mmmm , Ailla am. .am mmama*. .m am , m am m mmmmt - 


•single slock transfer test, wdata fi 


: ltft ™ • 



TCMK 


JS® 



RCATAFHC. BINARY COUNT RAT'ERN. 
‘ K! T( 


AtA c**cr* 

“ j- Ft aa» W^Jmi# ** 





T RSjfF 


CIFItC. RERC? 5, 


flS 



♦ 

♦ 

* 


j SINGLE 
4 A: 


* TRANSFER TEST. UOATi 
JV * K •^ATAR.SUNTK ! 


fclBJIfo™ { 



tn^r? % nn * « 

>C,SSlNf 



NARY COUNT tATTSRs. 


if 

fs * CrS I i 

A i«^dP#Kjy. ®F | ' 

y %-rlS.wPv y Ft ■ Ft 3 ; F* * 

T DATA STORED AT R|wF 

iOfei iPfCIFIED. R£*:R* 


tft 

tlfe 


ffffffffffffffftffftfftttfttffftftfffffttfffttfffffttfttttfttftt* ♦#♦♦♦♦♦* 


t 

♦ 

♦ 

♦ 


.LIST 



T ROUTINE 


• iff#*######## ♦#♦•♦## #♦♦♦•♦♦♦#*##♦*§♦#§♦#♦##♦##•#•♦### tffftf ft tftf ♦♦♦•**♦ 

; SINGLE |Lg^TRANSFER TEST. JDATA^REV. UNARY COUNT eA**£*N. 

mi !rEaT^‘|||nTY DATA REV, 

SHlCKl * V 

USUF |i 


NA: 



nmv wr» « ft m* w * 

IftjtF BLm TnAHSFERS 
ten Tg JhIck DATA ilMZ A" 

ins* data stored a* Rs. f *s;:. 







f t 












* % 4 4 i £3 < 


:rcM.pu 
















u i&3£ 


Biilr? 


p:rp 

p|i?H4 

11 

* , , ? m. 4 




S 1 5**t*r 

jpj f g*^** 




*nn? 

£il?s? 

Inn? 


iiSMjQ 

DClDuS 




Mi 2 : 


012. ». 


10<H0 

lAunus 


11 " 


ftansip 
mu « <jfc 


l q^J? 

m « 

r 4 # »- # # « 

r 20:022 


i5h5^i 

I 

4 / / * t r 

000012 


Bfp 4 * « n 


ocoirs 

000224 


2*PJ94 

PSfcjfl 

immm * 


ftOG*S4 

532ill 


'%mp A’ 19 I' m * i» 


D04 

lO-SEP-rt 15:51 PSSE M 2 
• LIST 

iTwi Sft §M: Bmv ccu,tT ^” E? '- 


’SR 

Satchk 


nw Mm 

pc.reiNT 


R9UF 

SCOPE 


§&/o«r DIRECTION INDICATOR. 

00 do 2 block transfers . „„ 

CALL OATCHK SUB TO CHECK DATA STORED - 
WBUF AGAINST DATA STcIId AT PBliF 
CHECK NUMBER OF WORDS sPECiFIED. RSPCR' 
ERRORS. 




if 

.LIST 


{ROUTINE NUMBER 22 
ADDRESS OF NEXT ROUT 
{^STJIeRATION COUNT 
{SCOPE ENTRY POINT 


outine 


{TWO SLOCK TRANSFER TEST. WCATA Fwi RDATA REV. BINARY COUTT ?A~E=N. 
MOv •WOATAF.DgINTX « sE f UP WDATAF • 


MOV » 

MOV | 

QgTCKl 

|lyF*i322 


•RDATAR.CilNT'r 

p'c« ? 


SET UP RDATAR. 

?ET DIFFERENT DIRECTION INDICAT 
55 DO 2 .BLOCK .TRANSFERS. . 


mJF HUHiHST OHTW STORED HT RSUF*i 222. 

CHECK « OF WORDS SPECIFIED. REPORT ERRORS. 
ACTUAL DATA IS CHECKED IN DESCENDING ORDER 


;♦##♦*♦****♦#«*+**«**#«#«#**#«♦*»•«*#•###»#«**#**♦*****♦**«***♦**♦+****»* 
*23: 23 {ROUTINE NUMBER 23 ♦ 

fin ADDRESS OF NEXT ROUTINE * 

JO. i III ^ITERATION COUNT 

*A isCOPE ENTRY POINT » 

.LIST 

;TWO SLOCK TRANSFER TEST. WDATA REV. RDATA FWD. BINARY COUNT » AHERN. 

kov *wcatar.Jb;ntx {Set up wdatar. 

nov •rdataf.dbinty ;SET up rdataf. 


•WDATAR, £9 INTX 
•RDATAF, MINTY 


C3INT: 


DBlNTXi 


*iyv 

JSR pc 

DATCKI 

pIuP*1022. 

m. 

jV 

Clear 

s;i F 

MuV •= 

OPEN 

6)3 

ylbf 


||T DIFFERENT DIRECTION INDICATOR. 
GO CO 2 BLOCK TRANSFERS, 

CALL DATCKI TO CwkCK OAtA STORED AT 


■2Q0..BLKR0 


FILL 512 WORD WRITE SUFFER W! 
BINARY COUNT PATTERN. 

CLEAR 512 WORD READ SUFFER. 


ms »sp k - 

{WRITE 512 WORDS. 
jADDR to Start write frci 



ill 

v* « % % pi * r 4 # 


5 

ip 

§3**a 








!«J 


ours 

•i!?n n» 


|j| 




L^lSuSi* 










yyy 

104044 




ana iohqh 


UiSiiC 

3||liH 


?nunS^ 


l . 


8iiifik Biiffl 




12134 
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E04 


733235 


02m3 


tf; xfr 
Id ferfefe 


; im hh 


3CM3^ 


annnn^ tennis 


D9IN1 


DSINT2 
D9I NT Y 
•J.BLKRG 
•fttv.STCCM 

oeiNtv 

•2.BLKRG 


512, 


OIFF DIR IND SET’ 

SisuHE^T' GOING m. INC BURQ. 
DT GOING FWD’ 


NO^V^OM BLKRO. 
ROATAF OR RDATAR. 


JAD 512 WORDS. 

R2QF iAfiDR TO START READING INTO. 

RTS PC {EXIT D8INT SUB. 

D9INT2: OPEN {DIFFERENT DIRECTION INDICATOR. 

tSH: =4 ; ROUTINE NUMBER 24 ♦ 

?2S ; ADDRESS OF NEXT ROUTINE * 

20. {TEST ITERATION COUNT 


TA 

.LIST 


isWSMir 1 


{PARTIAL BLOCK TRANSFER TEST. WDATA FWD 1.5 BLOCKS. RDATA FWD 2 SLOCKS. 
: BINARY COUNT PATTERN. UNWRITTEN PORTION OF 2ND BLOCK SHOULD BE 2*5. 
INSIN ; INI T BINARY COUNT. 

CLEAR ; CLEAR 512 WORD WRITE BUFFER. 

WBUF 

TA: l\kll ; FILL 384 WORD WRITE BUFFER WITH 

WBUF {BINARY COUNT PATTERN. 

?LEAR {CLEAR 512 WORD READ BUFFER. 


WBUF 

384. 

CLEAR 

9/ 

WSATAF 

39*1. 

RMTAF 

l^CHK 

WBUF 

RBUF 

SMPE 


IHBr t Sb^ ite Flffl 394 - ^ 


{CALL DATCHK SUB TO CHECK DATA STCRED A* 
{WBUF AGAINST DATA STORED AT RBUF 
{CHECK NUMBER OF WORDS SPECIFIED. REPORT 

§ * 


• *♦#*####§######♦*####*###############*## *♦♦♦**♦* 
tBS: 2S sROUTINE NUMBER 35 . » 

T2S {ADDRESS OF NEXT ROUTINE ♦ 

20. {TEST ITERATION COUNT ♦ 

UA ; SCOPE ENTRY POINT ♦ 

.LIST 

•«**»#ftt*ftt*»#t«#t*ftft#*#***#**t4t*#ft##tftt#t*#*#*ft#t*ft»******************* 

4 BLOCK TRANSFER TEST. WDATA FWD. RDATA FWD. WRITE AND READ SUFFERS ARE 
; COMBINED AND USED AS 10BH WORD r£hO BUFFER. WRITE DATA IS TAfEN FROM >E 

!PRoaRfl Ur E " 0 - 

MOV •RDATAF.ffilNTY {SET UP RDATAF. 

CLR GBINT2 „ {CLEAR DIFFERENT DIRECTION INDICATOR. 

UA: JSR PC. 08 INT ;G0 DO 4 SLOCK TRANSFERS. 

DATCHK {CALL DATCHK SUB TO CHECK DATA STORED A" 





fWCYii £?i?321 


1Q-SEP-7B 15:51 PAGE HH 


TC3 - TCI 1 TEST 

ddtcca.ph 


F04 



END 

UBUP 

iSStt 


EflG AGAINST DATA STORED AT «BUF 

CHECK NUMBER OF WORDS SPECIFIED. REPOP' 

ERRORS. 


•*******#*♦**#****♦***###♦*#♦##########»#*#»»*###§**#####*♦#♦****♦**♦**#* 
t26: 26 "%%,n X : 


ft 

20. 

.LIST 



T ITERATION COUNT 
PE ENTRY POINT 


* 

♦ 


#*#*****t*#********«**ft**#*#**##*#**#*4#**#«*t*»##***#********#*#**##*** 

mOCK TRANSFER TEST. WDATA REV. RDATA REV. WRITE AND READ BUFFER? ARE. 
NED AND USED AS 102H WORD.READ BUFFER* wilTE_DATA IS TAKEN PRC 


VA: 


^AM’COD? nlLr S 

MOV tWDA^ 

MOV »RDA 

BINT. 
C.OBINT 


At 

A:Kh tv 


TINC 
NTX 


I 



THE 


tWMM 

OATCHK 


ERRORS. 


ON INDICATOR. 

TO_CHECK DATA STORED AT 
T WE 


ITCHK 
:M0 

£ 
s« 

•♦♦♦♦♦♦♦♦♦♦♦^♦♦♦♦♦HH***»**H#***l««****««*H»»**»***#M**4**HH* 


•D. REP OR' 


i w w « 

tr: 


-LIST 



R 27 
XT ROUTINE 
N COUNT 


* 

♦ 

♦ 

* 


! 444 * 444 * 444444 * 444444444 * 44 # 444444 # 4 * 444444 # 44 # 44444444*4444444444444444 


01 

yir 

n«L 



T. WOfiTflF 


t H0U 


BUA 




!;® to 


- 



ARE 
AKEN FROM 


INDICATOR. 


CK_TRi 

A! . 

AM C 
MOV 

MOV 
MOV 
JSR 

® cu 

WBUF^2D%. 

^vOPE 

44#4#4#4#44 4444 4 4 444 4 4444 4444 4444444 444444444444*444444444 444444444444 44 


MOFfTTQN 

CK^tRANSFERS. 

TO tS w F * 


TA ST 
AT W! 


AT 
#2DH 

DESCENDING * 


DS^|PEvIF|ED. RfPQRT ERRORS. 


* w. m m 

taa: 


ISi 



XT^OUTINE 


•SCOPE ENTRY 


BVA 
.LIST 

444#44*44#«4#ft4ft4*##*4#*44444##***444*444#»444ft444*44444*44444*444444444 

■■ m m. 






Bvfi: 



ATftF. 
v •< • .RENT 

DO 4 BLOCK 


INDICATOR. 



1 


;ca - : ::: test 3 
d:tcca,p:i 



ft 



*2?e? 
!4?&? 
104320 
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DrtTCkI 

EMC 

WBUF+204S, 

1024. 

SCOPE 


G04 


Bii 


227* 


Soi; 


; CALL OATCKI TO CHECK DATA STORED AT 



000310 1SS4SS 
CC3C3S 

22230s :Ss42s 


mr iicii 


000330 


iSINT: 


Q81N T X: 


kff- 

OPEN 
1024, . 


•200. .BLkRQ 


03 I NT Y 


lOi 


N 

h. 

JF 


BLKRQ 

V.3TC 

f4TY 

.8LKRG 


;n 


; SCOPE. 

{CLEAR 1024 LORD READ SUFFER. 

; 300 TO BLOCK REQUIRED. 
iWDATAF OR WDATAR. 

{WRITE 1024 WORDS. 

; ADDR TO START WfiiTE FROM. 

: OIF F DIR IND SET’ 

IF NOT. 

‘ “ ' ' ING FWD. ADD 


IM 1 

{ Sr If yes. 

iNO s SUB £ FROf 


QB1NT2: OPEN 


PC 


,1(86 FROM BLKRQ. 
;RDhTAF or rdatar. 

{READ 1024 WORDS. 

TO START READING 


{ADDR TO START I 

mini 


INTO. 


CTION INDICATOR. 


+ 31: 31. {ROUTINE NUMBER 



XT^OUTINE 
oin? unt 





PE ENTRY POINT 


2442 21252s 


212052 230204 


32 
WA 

.LIST 

{DOUBLE BLOCK TRANSFER TEST. ALL SLOCKS. DATA ALL O'S. 

MOV •ICSB.SSKSBP 

UA: £ R PC.SBKSUS ;G0 DO ALL BLOCKS TEST. 

s%yrE jsuOPE. 

t32: 32 ; ROUTINE NyMB|R_32 . 

T33 

XA 

.LIST 

BLE BLOCK TRANSFER TEST. ALL BLOCKS. EACH BLOCK IS WRITTEN WITH 
OWN BLOCK NUMggR . 

MOV tucsB S8KSBP 

Xfli JSR PC.SBKSUS : GO DO ALL SLOCKS TEST. 

SCOPE {SCOPE. 

•*###*###**#*♦#*### *#*##******#*»*♦*♦** ******** 

tsa: 35 : esyilES NUMBER aa _ „ * 

T34 {ADDRESS OF NEXT ROUTINE * 

1 {TEST ITERATION COUNT * 

YA {SCOPE ENTRY POINT * 

.LIST 

:***#****#*t*##*ft***«»*»***ft**ft*»**«**ft*ft«ft**ft*******************+******* 

{DOUBLE BLOCK TRANSFER TEST. ALL BLOCKS BINARY COUNT PATTERN. 

MOV IYCS6B, SBkSBF 



Y,*«j <***!! TffCT 1 

J % „ wli * 8»5 * «3 


OZTCCA.Pli 


2443 

2444 


?44S 

244/ 

|44| 

244* 

||| 

iff 

2452 

|4|3 




Q||53H 




^ Ilf jjj 

|4p 


pj|*j 






iS 
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H04 


10WS1 

l^SIc 




f»M3fe 




155175 


155134 

nnn^o i 
17*774 
000034 
000133 




illill 

1&&17C 


155124 

155134 

155125 


INBIN ;INIT BINARY COUNT PATTERN. 

v * m iL MiMwmir " w:TH 

512. 

JSR PC.SBKSUB ;G0 DO AIL BLOCKS TEST. 

SCOPE -SCOPE. 

•444444*ft4«44444444444#4**44*»***ff#««*tff*t*ft«*«ft4*»*##*#***4************* 

T34: 34 ; ROUTINE NUMBER 34 * 

T35 AODRESS OF NEXT ROUTINE 

5 TEST ITERATION COUNT * 

2A SCOPE ENTRY POINT * 

.LIST 

;44#4***4#4*44#»*4*##*###*###44##44*#4#4##*#*##4#**####*44*4*#*#*4*44##** 

; DOUBLE BLOCK TRANSFER TEST. ALL BLOCKS. RANDOM DATA. 

NOV IYCSBB.SBKSBP 

INRND sINXT RANDOM NUMBER SUB. 

ZA: RNDFIL ;FILL 512 WORD WRITE 3L'FFER WITH 

WSyF ; RANDOM DATA. 

fit" PC.SBKSUB ; GO DO ALL BLOCKS TEST. 


01 3052 000250 


000002 


SCOPE 


: SCOPE. 


» WRITE-READ ALL BLOCKS. ROUBLE BLOCK TRANSFERS. 

rih?I^ni?i F ^^ T ^ SAft£ W P^EDURE lH£R 2 3 ^ 5 ’ 

«i4S.?CTR6 : SET UP TO WRITE 2 BLOCKS 145 TIMES. 

MOV «-4 3LKRQ ; STARTING WITH BLOCK 0. 

?c!S»§bp 


155352 


SBKSUB: MOV 

3£5r* «3£*W « nUU 

WDATAF 

p2^ 

MOV 

MOV 

SBK5BB: SUB 

WDATAR 

512. 

WBUF 

MOV 

MOV 

SBKSSC: ADD 

iSataf 

DATCHK 

g 


CTRA 

cok'csa 

*144., CTRA 
I579.,|LKR0 

?c:^IkIbp 


fTRA 
SBKSSB 
1145. .CTRA 
i-h.BlkRo 
•4.BLKRQ 
PC. 3SBK C BP 

r w i w«gp|pr\ wki 


GO SET UP WRITE BUFFER. 

CALL WOATAF SUB TO WRITE F WO 512. 
STARTING AT ADDR WBUF 


WORDS 


WRITTEN 145 TIMES’ 

SR IF NOT. 

SET UP TO WRITE 2 BLOCKS IN REV 144 TIMES 
STARTING WITH BLOCK 57$. 

GO SET UP WRITE BUFFER. 

CALL WDATAR SUB TO WRlfE REV 512. WORDS 


STARTING AT AODR WBUF 

WRITTEN 144 TIMES’ 

BR IF NOT. 

IiULR,5l^2BL0CKS 
STARTING WITH BLOCK 0. 


FWD 145 


SET Wglli J u |fI R WITH CHECK DATA. 

CALL RDATAF SUB TO READ FWD 512. WCRDb 
AND STORE AT ADOR STARTING AT R8UF 

CALL DATCHK SUB TO CHECK DATA STORED A1 
WBUF AGAINST DATA STORED AT RSUF 
CHECK NUMBER OF WORDS SPECIFIED. REPORT 
ERRORS. 

READ 145 TIMES’ 


CTRA 
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77 0CC026 


166210 


6767 1660H 020C2H 


ifn f y 

OODDIO 


mml itet £Lk wL 

i fg fg gs 


165714 

165724 

165716 


3NE 

MOV 

MOV 

5SKSSD: SUS 


TAR 
512. 

c|tchk 


58KSSC 
»144.,CtRA 
•S7§. JlKRQ 
I4,8LKRQ 
PC , 2SBK58P 




IN REV 14* 


^ T mjt r 

i i "P* « 


»ET WRITE BUFFER WITH CHECK 
:§LL RDATAR SU TO READ R£v 
TARTING AT ADOR RBUF 


)ATA. 

Sis. wop: 


W8UI 
gS^F 

S8K$ OPEN 

■Jsh.'MU" 


Iffl » 


TRA 

KSBD 



BLKRO. WCSBA 


TO CHECK DATA STORED AT 
TA STORED AT R8UF 
i CHECK NUMBER OF WOK 
; ERRORS. 

READ 144 TIMES’ 

:BR If NOT. 

|w$IT£ lu Utn SET UP SUS POINTER. 

BjjFFjfi WITH » 


OF BLOCK TO BE WRITTEN, AND 


AR 512 U wIrD READ SUFFER 


K* TO WCSBA 

LI WRITE BUFFER WITH DATA IN WCSBA. 


0 CLEAR READ BUFFER. 


; CLEAR 512 WORD READ BUFFER. 


BUFFER WITH 0 


EXIT, 


;CLEA§ 512 D W0RD F WRItF9U^fIr. 


rLAST 


; FILL READ BUFFER WITH i*S. 


r, 3 PC SEXIT. 

♦♦***HH«***#»H**l***#**t*»«>#«#*««*HM#*#*4********H**«******* 

iH 8 » 8 WW 

mmmsr 

.LIST 

4 BLOCK TRANSFER TEST. ALL BLOCKS. WRITE AND READ BUFFER ARE COMBINED 
:AND US& A^ i^ T SS D A ? E gy ^ER. WRI TE DATA IS TAKEN FROM THE PROGRAM 

ilAr 1 MOV 5TA «7 | N ;CTRa7 D Jet ‘up to WRITE 4 BLOCKS FWO 72 TIMES. 

MOV •-S.’SlKRG {STARTING WITH BLOCK 0. 

C1B: ADD I8..SLKRQ 

WDATAF {CALL WDATAF SUB TO WRITE FWD 1024. WORD 

1024. {STARTING AT ADDR EMQ 

1M0 

CTRA {WRITTEN 72 TIMES’ 

C1B :SR IF NOT. 


♦ ♦ ♦ ♦ ♦ in 



rururur 



; SET UP 70 WRITE 4 BLOCKS REV 72 TIMES 
; STARTING WITH BLOCK 575 

{CALL WDATAR SUB TO WRITE REV 1C24. WCR 
•STARTING AT ADDR EMO 

; WRITTEN 72 TIMES’ 

;BR IF NOT. 

SET UP TO READ H BLOCKS FWD 72 TIMES. 
{STARTING WITH BLOCK 0. 

{CLEAR 1024 WORD READ BUFFER. 

{CALL RDATAF SUB TO READ FWD 1024. WORD 
AND STORE AT ADDR STARTING AT UBUF 



HECK NUMBER 
RRORS. 


BR IF NOt. 

KTJB TO READ 4 BLOCKS REV 72 TIMES. 
{STARTING WITH BLOCK 575. 

{CLEAR 1024 WORD READ BUFFER. 


WSbSP 0 REV ^ W0RDS 

CALL DATCHK SUB TO CHECK DATA STORED AT 
EMO AGAINST DATA STORED AT WBUF 
CHECK NUMBER OF WORDS SPECIFIED. REPORT 

lm R h TIMES’ 

BR IF NOT. 

DONE. SCOPE. 


i n H 
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9*0* 

1195* 

toto# 
■ to to' w 

921* 

* to to 4» 

• . • 

4 to toto 

i§§i* 

942* 

1042* 

946* 

1049* 

1050* 

955* 

1198* 

959 

• r<*3 

4* to to to 

1009 

1017* 

1024* 

1035* 

1049* 

* toto to 
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648 
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1346 
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\ni* 
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